home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
misc
/
avmNfax1_33.lha
/
avmsuite
/
playall.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-05-15
|
541b
|
31 lines
/* this script shows how to play all entries in a mailbox */
parse upper arg mailbox .
if mailbox = '' then do
say 'Usage: playall mailboxdir'
exit
end
call addlib("rexxsupport.library", 0, -30, 0)
logrexxport = 'AVMLOGVIEW.' || mailbox
logviewrunning = show('p', logrexxport)
say 'Opening up' mailbox
address command 'run >nil: <nil: avm:logview' mailbox
if ~logviewrunning then do 5
call delay(100)
logviewrunning = show('p', logrexxport)
if logviewrunning then break
end
address value logrexxport
'selectall'
'play'